home *** CD-ROM | disk | FTP | other *** search
- topaz.font
- Rev 18-Sept-85
- 32 $000 $fff $000 $d00 $f00 $f80 $f90 $fb0
- $fd0 $ff0 $bf0 $8e0 $0f0 $2c0 $0b1 $0bb
- $0db $1fb $6fe $6ce $00f $61f $06d $91f
- $c1f $f1f $666 $db9 $c80 $336 $d00 $CC6
- %window 0 0 0 320 200 "Demo.Window" $1800 $0648
- %clear 0
- %start
- %font rhinestone.font 8
- ;
- ; German version by Dr. Peter Kittel, CBM Ffm, 27.2.86
- ;
- ; Begining of demo ... Hook screens
- ;
- %load Hello.ani clear 0 delay $10 animate 0 4
- %clrtxt 25 164 315 199 penb 0
- DrÜcken Sie die Leertaste, um eine VorfÜhrung der Multi-Tasking-Fähigkeiten
- des Amiga Personal-Computers zu bekommen.
- %delay $7000 cycle 4 5 5 0 0
- ;
- ; "Holding" animation
- ;
- %clear 0 color 31 $CC6
- %load holding.ani
- %delay $0300 animate 0 26
- %clrtxt 30 164 300 199 pena 1 penb 0
- Gefällt es Ihnen, den ganzen Tag am Telefon festgenagelt zu sein?
- %pena 31
- (Weiter mit der Leertaste)
- %delay $0D00 cycle 103
- 30 31 32 33 34 35 36 37 38
- 30 31 32 33 34 35 36 37 38
- 30 31 32 33 34 35 36 37 38
- 30 31 32 33 34 35 36 37 38
- 30 31 32 33 34 35 36 37 38
- 27 30 31 28 32 33 34 35 36 37 38
- 30 31 32 33 34 35 36 37 38
- 30 31 32 33 34 35 36 37 38
- 30 31 32 33 34 35 36 37 38
- 27 30 29 31 32 33 34 35 36 37 38
- 30 31 32 33 34 35 36 37 38
- ;
- ; "BagLady" animation
- ;
- %pena 0 rfill 310 199 10 164
- %cset2 load baglady.ani
- %delay $00 animate 0 9
- %clrtxt 40 164 280 199 pena 1 penb 0
- Erhöht das Warten in der Kassenschlange tatsächlich Ihre Produktivität?
- %load baglady.ani delay $2E00 color 2 $CC6 pena 2
- (Weiter mit der Leertaste)
- %kids cycle 10 10 10 10 10 10 10 11 12 11 10
- ;
- ; Amiga Guy animation
- ;
- %clrtxt 20 167 310 199
- %load amigaGuy.ani delay 0 animate 0 12
- %pena 0 rfill 10 170 0 150 rfill 319 170 310 150 pena 1
- Der Sinn des Personal-Computers ist einfach, Ihnen Zeit zu ersparen und
- Ihre Produktivität zu erhöhen.
- %delay $7000 cycle 4 13 13 14 14
- %clrtxt 20 164 300 199
- %delay $0700 stamp 14 animate 17 24
- Aber oft scheinen Personal-Computer Sie eher eine Menge Zeit zu kosten.
- DrÜcken Sie die Leertaste, dann werde ich es Ihnen erklären.
- %delay $7000 cycle 4 16 16 15 15
- ;
- ; "Series" animation
- ;
- %clear 0
- %load series.ani
- %stamp 0 pena 0 rfill 315 142 180 108 efx2 clrtxt 20 164 300 199
- Die meisten Personal-Computer können nur eine Sache gleichzeitig tun.
- Wenn sie 3 Dinge zu erledigen haben, mÜssen sie sie nacheinander tun.
- %wait clrtxt 20 164 300 199
- Und während der Computer eins nach dem anderen erledigt, mÜssen Sie warten und
- zusehen.
- %delay $0C00 clock1 animate 1 7 pause 4 $8000 animate 8 21 pause 4 $8000
- %animate 22 35 pause 3 0 clrtxt 20 164 300 199
- Auf den Computer zu warten ist keine sehr produktive Art, seine Zeit zu
- verbringen.
- %color 28 $CC6 pena 28
- (Weiter mit der Leertaste)
- %wait clrtxt 20 164 300 199 load parallel.ani
- Der Amiga kann jedoch mehrere Dinge gleichzeitig erledigen. Das nennt man
- Multi-Tasking.
- ;
- ; Parallel task example
- ;
- %delay $0A00 animate 0 17 pena 0 rfill 315 142 180 108 efx2 wait
- %clrtxt 20 164 300 199
- Sie mÜssen nicht darauf warten, daß der Computer eine Arbeit fertigstellt,
- bevor Sie ihm die nächste aufgeben.
- %clock2 delay $0A00
- %animate 18 26 pause 2 0 animate 41 48 pause 2 0 animate 35 40
- %pause 2 0 clrtxt 20 164 300 199
- Durch diese Multi-Tasking-Fähigkeit erhöht der Amiga tatsächlich Ihre
- Produktivität. Sehen wir uns ein Beispiel an...
- %wait
- ;
- ; This is Fred...
- ;
- %clear 0 load Fred.ani delay $0200 animate 0 8
- %clrtxt 5 158 315 199
- Dies ist Fred. Er hat ein kleines Geschäft und einen Personal-Computer und
- möchte einen Prospekt Über neue Spezialitäten an einige seiner Kunden
- verschicken. Wir wollen ihm dabei helfen.
- %delay $1D00 cycle 4 9 10 9 11
- %pena 0 rfill 315 199 2 158 clrtxt 20 164 300 199
- Zuerst mÜssen wir seine Kundenliste sortieren, dann den Prospekt entwerfen
- und schließlich alle Briefe drucken.
- %cycle 4 9 10 9 11 clrtxt 20 164 300 199
- Zuerst lassen wir den Computer die Namen sortieren. DrÜcken Sie die
- "F1"-Taste als Startsignal.
- %font topaz.font 8
- %wait clear 0 load myColors.ani pena 10 rfill 319 10 0 0
- %pena 0 penb 10 @ 20 8
- Fred's Computer
- %penb 0 pena 10 @ 2 30
- Sorting Customers by Address.
- %font rhinestone.font 8
- %pena 9 move 0 160 draw 319 160 move 0 162 draw 319 162
- %clrtxt 20 164 300 199 pena 1
- Jetzt sortiert der Computer, und wir mÜssen bis zum Ende warten, bevor
- wir etwas anderes tun können.
- %font topaz.font 8
- %efx6 2 30 3000
- %clrtxt 20 164 300 199 pena 1 font rhinestone.font 8
- Jetzt ist das Sortieren fertig. Beachten Sie, daß wir solange herumsitzen
- und zugucken mußten, bis der Computer fertig wurde.
- %color 8 $CC6 pena 8
- (Leertaste)
- %wait
- %clrtxt 20 164 300 199
- Nun können wir den Prospekt-Text eintippen. DrÜcken Sie die "F2"-Taste.
- %wait clrtxt 1 12 319 130 cset2 load cset.printer color 28 $4D0 pena 28
- ;
- ; User finishes memo by typing name
- ;
- und da ich Sie als Geschäftspartner schätze, freut es mich besonders,
- Ihnen dieses spezielle Angebot zu unterbreiten. Beachten Sie unser großes
- Angebot an Hochzeits- und Geburtstagstorten, sowie unsere preiswerten
- Qualitätsbackwaren fÜr den Alltag. Mit freundlichen GrÜßen...
- %clrtxt 20 164 310 199 pena 1
- Um den Brief zu beenden, tippen Sie ein "Fred the Baker" und drÜcken die
- RETURN-Taste.
- %input 28 150 95 8 30 clrtxt 10 164 310 199
- Jetzt lassen wir diesen Brief von unserem Computer fÜr jeden Kunden aus der
- Liste drucken: DrÜcken Sie die "F3"-Taste.
- %wait clrtxt 10 164 310 199 load yoyo.ani clear 0
- ;
- ; Printer animation with Fred & Yoyo
- ;
- %delay $10 animate 21 28 stamp 0 clrtxt 2 155 315 199
- Es wird 2 Stunden dauern, alle Briefe zu drucken. Fred wÜrde gern mit dem
- Rest seiner Arbeit anfangen, doch er muß bis nach dem Abendessen warten,
- bis der Computer fertig ist. (Keine sehr produktive Zeitausnutzung.)
- %delay $0A00 cycle 40
- 29 1 32 2 33 3 34 4 35 5 30 6 34 7 33 8 32 9 31 10
- 29 11 32 12 33 13 34 14 35 15 30 16 34 17 33 18 32 19 31 20
- %clrtxt 2 155 315 199
- ;
- ; Rose's Flower Shop
- ;
- %cset2 load Rose3.ani
- %delay $0000 animate 0 6 clrtxt 20 164 310 199
- Dies ist Rose. Sie hat auch ein kleines Geschäft und möchte einen Prospekt
- verschicken. Sie benutzt einen Amiga Personal-Computer. Wir wollen auch ihr
- helfen.
- %delay $2600 cycle 4 7 9 8 9 clrtxt 20 164 310 199
- Um ihre Kundenliste zu sortieren, drÜcken Sie die "F1"-Taste.
- %cycle 4 7 9 8 9
- ;
- ; Starting sorting Rose's customers
- ;
- %color 0 $038 clear 0 pena 1 move 0 0 draw 319 0 draw 319 199 draw 0 199
- %draw 0 0 rfill 319 10 0 0 pena 0 penb 1 @ 2 8
- Amiga Personal-Computer
- ; draw sort window
- %pena 0 rfill 220 80 5 15 color 8 $fd0 color 6 $f90
- %pena 8 penb 0 move 5 15 draw 220 15 draw 220 80 draw 5 80 draw 5 15
- %rfill 220 24 5 15 pena 0 penb 8 @ 10 23
- Datenbank
- ; clear text at bottom and draw bar
- %penb 0 pena 0 rfill 319 199 0 160 color 28 $4D0 pena 1
- %move 0 160 draw 319 160
- %clrtxt 5 164 315 199 pena 28
- Aber jetzt...anstelle auf den Amiga zu warten, können wir sofort mit der
- Arbeit am Brief beginnen. DrÜcken Sie die "F2"-Taste, um ihr
- Textprogramm zu starten.
- %efx5 15 40 3000 $5000 0 wait clrtxt 5 164 315 199
- ;
- ; Open Memo to edit while still sorting
- ;
- %pena 0 rfill 300 155 20 60
- %pena 6 move 20 60 draw 300 60 draw 300 155 draw 20 155 draw 20 60
- %rfill 300 69 20 60 pena 0 penb 6 @ 25 68
- Textverarbeitung
- %clrtxt 24 71 299 150 cset2 load cset.printer pena 1 penb 0
- und da ich Sie als Geschäftspartner schätze, freue ich mich besonders,
- Ihnen dieses spezielle Angebot zu unterbreiten. überzeugen Sie sich von
- dem breiten Angebot an Schnitt- und Topfblumen und unser preiswertes
- Topf- und Pflanzmaterial. Mit freundlichen GrÜßen...
- %clrtxt 20 164 300 199 pena 28
- Beachten Sie, daß der Amiga WEITER sortiert... während wir mit der
- nächsten Aufgabe weitermachen.
- %wait
- ;
- ; Have user finish memo
- ;
- %clrtxt 20 164 300 199 pena 28
- Tippen Sie "Rose Thornbush" und drÜcken die RETURN-Taste. Durch die
- Multi-Tasking-Fähigkeit spart der Amiga Ihnen Zeit.
- %input 1 160 140 8 20
- %clrtxt 20 164 300 199 pena 28
- Der Amiga kann mit seiner Arbeit weitermachen, während wir zur nächsten
- Aufgabe Übergehen.
- %wait efx5 0 clrtxt 20 164 300 199 pena 28
- Nun mÜssen wir noch die Briefe drucken. DrÜcken Sie die "F3"-Taste.
- %wait clrtxt 20 164 300 199 cset2 load Rose3.ani
- ;
- ; Rose typing while printer spits paper
- ;
- %color 0 $000 clear 0 delay $10 animate 0 6 stamp 10 clrtxt 15 164 315 199
- Das Drucken wird immer noch 2 Stunden dauern, aber mit dem Amiga können
- Sie sofort etwas anderes beginnen, während er im Hintergrund alles zu Ende
- fÜhrt.
- %delay $0A00 cycle 33
- 10 11 7 12 13 9 14 15 8 16 17 9 19 20 8 21
- 22 7 23 24 9 25 26 8 27 28 9 29 30 7 31 10 8
- %clrtxt 15 164 315 199 load End.ani delay $10 animate 21 29 stamp 34 stamp 0
- Also noch einmal ... was möchten Sie lieber:
- a) einen Computer, der Sie warten läßt, oder
- b) einen Amiga, auf den Sie nicht warten mÜssen.
- %delay $0A00 cycle 30
- 1 31 2 3 32 4 5 33 6 7 32 8 9 31 10
- 11 32 12 13 33 14 15 32 16 17 33 18 19 32 20
- %clear 0 load hello.ani delay $10 animate 0 4
- %clrtxt 20 164 310 199
- Lassen Sie sich von einem Verkäufer mehr Über den Amiga Personal-Computer
- erzählen.
- %delay $7000 cycle 4 5 5 0 0
- %clear 0 restart end
-
-
-